home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / GUSI / Internalize < prev    next >
Encoding:
Text File  |  1993-11-08  |  1.4 KB  |  56 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit 
  2.  
  3. #!/usr/local/bin/perl
  4. #######################################################################
  5. #    Project    :    GUSI                -    
  6. #    File        :    Internalize.pl    -    Delete internal names
  7. #    Author    :    Matthias Neeracher
  8. #    Started    :    18Oct92                                Language    :    Perl
  9. #    Modified    :    18Oct92    MN    Separate strict variant
  10. #                    15Nov92    MN    Allow FSp and FSSpec
  11. #                    07Feb93    MN    Allow GUSIwith… 
  12. #                    01Jun93    MN    Allow Socket:: SocketDomain:: and DeviceSocketDomain:: to stay
  13. #                    09Aug93    MN    Report missing externals
  14. #    Last        :    09Aug93
  15. #######################################################################
  16.  
  17. open(EXT, "GUSI.ext")     || die "Can't open file \"GUSI.ext\"";
  18. open(DN,     ">GUSI.dn")    || die "Can't open file \"GUSI.dn\"";
  19. open(DNC, ">GUSI_C.dn")    || die "Can't open file \"GUSI_C.dn\"";
  20.  
  21. while (<EXT>)    {
  22.     chop;
  23.     $Extern{$_} = 1;
  24. }
  25.  
  26. while (<>)    {
  27.     @F = split;
  28.     
  29.     next     unless    $F[4] eq "ext";
  30.  
  31.     if ($Extern{$F[0]}) {
  32.         $Extern{$F[0]} = -1;
  33.         
  34.         next;
  35.     }
  36.  
  37.     next    if            $F[0] =~ /GUSI/;
  38.     
  39.     if (($F[0] =~ /__9TFileSpec/) 
  40.      || ($F[0] =~ /__7Feature/) 
  41.      || ($F[0] =~ /__6Socket/) 
  42.      || ($F[0] =~ /__12SocketDomain/) 
  43.      || ($F[0] =~ /__18DeviceSocketDomain/) 
  44.      || ($F[0] =~ /PPCSocket/)
  45.      || ($F[0] =~ /FSp/) 
  46.      || ($F[0] =~ /2FSSpec/)
  47.     ) {
  48.         print DNC "-dn $F[0]\n";
  49.     } else {
  50.         print DN "-dn $F[0]\n";
  51.     }
  52. }
  53.  
  54. foreach $i (sort keys Extern) {
  55.     print STDERR "Function \"$i\" apparently not implemented!\n" unless ($Extern{$i} == -1);
  56. }